home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 41 / 64er_Magazin_Sonderheft_41_19xx_Markt__Technik_de.d64 / listing 14 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  278b  |  13 lines

  1. 0 goto10
  2. 1 , 0300 ad 00 1c lda $1c00
  3. 2 , 0303 29 10    and #$10
  4. 3 , 0305 4a       lsr
  5. 4 , 0306 8d 00 1c sta $1c00
  6. 5 , 0309 4c 00 03 jmp $0300
  7. 6 :
  8. 10 open1,8,15
  9. 20 forx=0to11:reada
  10. 30 print#1,"m-w"chr$(x)chr$(3)chr$(1)chr$(a):next
  11. 40 print#1,"m-e"chr$(0)chr$(3)
  12. 50 data173,0,28,41,16,74,141,0,28,76,0,3
  13.